home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Editors / emacs / Emacs-1.14b1 / lisp / mac / Resources.el < prev    next >
Encoding:
Text File  |  1994-01-24  |  642 b   |  23 lines  |  [TEXT/EMAC]
  1. ;;;
  2. ;;; This file is part of a Macintosh port of GNU Emacs.
  3. ;;; Copyright (C) 1993, 1994 Marc Parmet.  All rights reserved.
  4. ;;;
  5. ;;; GNU Emacs is distributed in the hope that it will be useful,
  6. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  7. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  8. ;;; GNU General Public License for more details.
  9. ;;;
  10.  
  11. ; pascal Handle GetResource(ResType theType,short theID)
  12. ;  = 0xA9A0; 
  13. (deftrap GetResource ("a9a0")
  14.   ((theType immediate-string)
  15.    (theID short))
  16.   long)
  17.  
  18. ; pascal void DetachResource(Handle h)
  19. ;  = 0xA992; 
  20. (deftrap DetachResource ("a992")
  21.  ((h long))
  22.  nil)
  23.